library(plotly)
Registered S3 method overwritten by 'data.table':
method from
print.data.table
Registered S3 method overwritten by 'htmlwidgets':
method from
print.htmlwidget tools:rstudio
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocGxvdGx5KQpsaWJyYXJ5KGxlYWZsZXQpCgpzZWFiaXJkcyA8LSByZWFkX2NzdigiZGF0YS9zZWFiaXJkc19jbGVhbmVkLmNzdiIpCmBgYApgYGB7cn0KaGVhZChzZWFiaXJkcykKCnNlYWJpcmRzICU+JSAKICBmaWx0ZXIoc3RyX2RldGVjdChzcGVjaWVzX2NvbW1vbiwgIlJveWFsIGFsYmF0cm9zIikpCmBgYApgYGB7cn0KIyBXZSB3YW50IGEgc3RhY2tlZCBiYXIgb2YgbW9zdCBjb21tb24gYW5kIG1vc3QgcmFyZSBiaXJkcwoKI2ZpbHRlciBmb3IgcmFyZXN0IGJpcmRzOgpiaXJkc19yYXJlIDwtIHNlYWJpcmRzICU+JSAKICBzZWxlY3Qoc3BlY2llc19zY2llbnRpZmljLCBzcGVjaWVzX2NvbW1vbiwgc3BlY2llc19hYmJyZXZpYXRpb24sIGNvdW50KSAlPiUKICBmaWx0ZXIoIXN0cl9kZXRlY3Qoc3BlY2llc19jb21tb24sICJzZW5zdSBsYXRvIikpICU+JSAKICBmaWx0ZXIoc3RyX2RldGVjdChzcGVjaWVzX3NjaWVudGlmaWMsICJbQS1aXXsxfVthLXpdKiBbYS16XSokIikpICU+JSAKICBmaWx0ZXIoIXN0cl9kZXRlY3Qoc3BlY2llc19jb21tb24sICJ1bmlkZW50aWZpZWQiKSkgJT4lIAogIGZpbHRlcighc3RyX2RldGVjdChzcGVjaWVzX3NjaWVudGlmaWMsICJcXC8iKSkgJT4lIAogIGdyb3VwX2J5KHNwZWNpZXNfc2NpZW50aWZpYywgc3BlY2llc19jb21tb24sIHNwZWNpZXNfYWJicmV2aWF0aW9uKSAlPiUgCiAgc3VtbWFyaXNlKGNvdW50X2luZGl2aWR1YWxfYmlyZHMgPSBzdW0oY291bnQpKSAlPiUgCiAgYXJyYW5nZShjb3VudF9pbmRpdmlkdWFsX2JpcmRzKSAlPiUgCiAgIyBub3cgeW91IG9ubHkgaGF2ZSB0aGUgcmFyZXN0IGJpcmRzIGV2ZXIgc2Vlbi4KICBoZWFkKDcpCgoKCiNmaWx0ZXIgZm9yIG1vc3QgY29tbW9uIGJpcmRzOgpiaXJkc19jb21tb24gPC0gICBzZWFiaXJkcyAlPiUgCiAgc2VsZWN0KHNwZWNpZXNfc2NpZW50aWZpYywgc3BlY2llc19jb21tb24sIHNwZWNpZXNfYWJicmV2aWF0aW9uLCBjb3VudCkgJT4lCiAgZmlsdGVyKCFzdHJfZGV0ZWN0KHNwZWNpZXNfY29tbW9uLCAic2Vuc3UgbGF0byIpKSAlPiUgCiAgZmlsdGVyKHN0cl9kZXRlY3Qoc3BlY2llc19zY2llbnRpZmljLCAiW0EtWl17MX1bYS16XSogW2Etel0qJCIpKSAlPiUgCiAgZmlsdGVyKCFzdHJfZGV0ZWN0KHNwZWNpZXNfY29tbW9uLCAidW5pZGVudGlmaWVkIikpICU+JSAKICBmaWx0ZXIoIXN0cl9kZXRlY3Qoc3BlY2llc19zY2llbnRpZmljLCAiXFwvIikpICU+JSAKICBncm91cF9ieShzcGVjaWVzX3NjaWVudGlmaWMsIHNwZWNpZXNfY29tbW9uLCBzcGVjaWVzX2FiYnJldmlhdGlvbikgJT4lIAogIHN1bW1hcmlzZShjb3VudF9pbmRpdmlkdWFsX2JpcmRzID0gc3VtKGNvdW50KSkgJT4lIAogIGFycmFuZ2UoZGVzYyhjb3VudF9pbmRpdmlkdWFsX2JpcmRzKSkgJT4lIAogICMgbm93IHlvdSBvbmx5IGhhdmUgdGhlIG1vc3QgY29tbW9uIGJpcmRzCiAgaGVhZCg3KQoKI25vdyBjcmVhdGUgcGxvdHMsIG1vc3QgY29tbW9uCnBsb3RfYmlyZHNfY29tbW9uIDwtIGJpcmRzX2NvbW1vbiAlPiUgCiAgZ2dwbG90KCkgKwogIGFlcyh4ID0gc3BlY2llc19jb21tb24sIHkgPSBjb3VudF9pbmRpdmlkdWFsX2JpcmRzKSArCiAgZ2VvbV9jb2woZmlsbCA9ICIjYWRkZDhlIikgKwogIGNvb3JkX2ZsaXAoKSArCiAgeWxhYigiVG90YWwgaW5kaXZpZHVhbCBiaXJkcyBvYnNlcnZlZCIpICsKICB4bGFiKCIiKSArCiAgZ2d0aXRsZSgiTW9zdCBjb21tb24gYmlyZHMgc2VlbiIpICsKICB0aGVtZV9jbGFzc2ljKCkgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBzY2FsZXM6OmNvbW1hKQoKZ2dwbG90bHkocGxvdF9iaXJkc19jb21tb24pCgojbm93IGNyZWF0ZSBwbG90cywgbW9zdCByYXJlCgpwbG90X2JpcmRzX3JhcmUgPC0gYmlyZHNfcmFyZSAlPiUgCiAgZ2dwbG90KCkgKwogIGFlcyh4ID0gc3BlY2llc19jb21tb24sIHkgPSBjb3VudF9pbmRpdmlkdWFsX2JpcmRzKSArCiAgZ2VvbV9jb2woZmlsbCA9ICIjZTM0YTMzIikgKwogIGNvb3JkX2ZsaXAoKSArCiAgeWxhYigiVG90YWwgaW5kaXZpZHVhbCBiaXJkcyBvYnNlcnZlZCIpICsKICB4bGFiKCIiKSArCiAgZ2d0aXRsZSgiUmFyZXN0IGJpcmRzIG9ic2VydmVkIikgKwogIHRoZW1lX2NsYXNzaWMoKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IDE6NSkgKwogIGV4cGFuZF9saW1pdHMoeSA9IDUpCgpnZ3Bsb3RseShwbG90X2JpcmRzX3JhcmUpCiAgCiAKYGBgCgpgYGB7cn0KIyBzcGFya2xpbmUgZm9yIHRvdGFsIGJpcmQgc3BlY2llcyBvYnNlcnZlZAoKc2VhYmlyZHMgJT4lIAogIG11dGF0ZSh5ZWFyID0gbHVicmlkYXRlOjp5ZWFyKGRhdGUpKSAlPiUgCiAgc2VsZWN0KHNwZWNpZXNfc2NpZW50aWZpYywgc3BlY2llc19jb21tb24sIHNwZWNpZXNfYWJicmV2aWF0aW9uLCB5ZWFyKSAlPiUgCiAgZmlsdGVyKCFzdHJfZGV0ZWN0KHNwZWNpZXNfY29tbW9uLCAic2Vuc3UgbGF0byIpKSAlPiUgCiAgZmlsdGVyKHN0cl9kZXRlY3Qoc3BlY2llc19zY2llbnRpZmljLCAiW0EtWl17MX1bYS16XSogW2Etel0qJCIpKSAlPiUgCiAgZmlsdGVyKCFzdHJfZGV0ZWN0KHNwZWNpZXNfY29tbW9uLCAidW5pZGVudGlmaWVkIikpICU+JSAKICBmaWx0ZXIoIXN0cl9kZXRlY3Qoc3BlY2llc19zY2llbnRpZmljLCAiXFwvIikpICU+JSAKICBzZWxlY3QoeWVhciwgc3BlY2llc19zY2llbnRpZmljKSAlPiUgCiAgZ3JvdXBfYnkoeWVhcikgJT4lIAogIHN1bW1hcmlzZSh0b3RhbF9zcGVjaWVzX3Blcl95ZWFyID0gbigpKSAlPiUgCiAgbXV0YXRlKGxhYmVsX3RleHQgPSBpZmVsc2UoeWVhciA9PSAxOTkwLCB0b3RhbF9zcGVjaWVzX3Blcl95ZWFyLCBOQSkpICU+JSAKICBnZ3Bsb3QoKSArCiAgYWVzKHggPSB5ZWFyLCB5ID0gdG90YWxfc3BlY2llc19wZXJfeWVhcikgKwogIGdlb21fbGluZShjb2xvdXIgPSAiIzA4NTE5YyIpICsKICBnZW9tX2FyZWEoZmlsbCA9ICIjOWVjYWUxIikgKwogIGdlb21fcG9pbnQoY29sb3VyID0gIiMwODUxOWMiLCBzaXplID0gNCkgKwogIGdlb21fdGV4dChhZXMobGFiZWwgPSBsYWJlbF90ZXh0KSwgaGp1c3QgPSAtMC41LCBzaXplID0gOCkgKwogIHRoZW1lX3ZvaWQoKSArCiAgZXhwYW5kX2xpbWl0cyh4ID0gMTk5MSkgKwogIGdndGl0bGUoIlRvdGFsIHNwZWNpZXMgb2JzZXJ2ZWQgaW4gcmVjZW50IHllYXJzIikKCgoKYGBgCmBgYHtyfQojYXJlYSB3aXRoIHJveWFsIGFsYmF0cm9zIHNpZ2h0aW5ncyEKCnNlYWJpcmRzICU+JSAKICBmaWx0ZXIoc3RyX2RldGVjdChzcGVjaWVzX2NvbW1vbiwgIlJveWFsIGFsYmF0cm9zIikpICU+JSAKICBsZWFmbGV0KCkgJT4lIAogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXIgPSBwcm92aWRlcnMkT3BlblN0cmVldE1hcCkgJT4lIAogIGFkZE1hcmtlcnMobG5nID0gfmxvbmcsIGxhdCA9IH5sYXQsIHBvcHVwID0gfnNwZWNpZXNfc2NpZW50aWZpYykKICAKCgpgYGAKCg==